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* Event handling in FM ALV 


aetoteeeeetototeteteeeeeteteeeeteeeekteteteteeteotetekxxx 


REPORT zdemo alv7. 
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x TYPE-POOLS i 


类 火炎 火炎 类 头头 类 类 类 头头 状 类 类 类 类 类 头头 类 类 关头 类 类 头头 类 类 类 类 头头 类 


TYPE-POOLS slis. 
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? Data types P 
WW Wa WA WA WA NA NA NA NA NA WA NA Aa Kk AA AA 
TYPES :BEGIN OF ty ekko, 
lifnr TYPE lifnr , 

ebeln TYPE ebeln, 

aedat TYPE erdat, 

pprior TYPE zzpriority, 

END OF ty ekko. 


DATA : it ekko TYPE TABLE OF ty ekko, 
wa ekko TYPE ty ekko, 
it fieldcat TYPE slis t fieldcat alv, 
wa fieldcat TYPE slis fieldcat alv, 
it events TYPE slis t event, 
wa events TYPE LINE OF slis t event, 
v lifnr TYPE lifnr. 


SELECT-OPTIONS s lifnr FOR v lifnr. 
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3 Constants * 
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CONSTANTS c check TYPE c VALUE 'X'. 
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id START-OF-SELECTION d 
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START-OF-SELECTION. 


SELECT ebeln lifnr aedat pprior 
INTO TABLE it ekko 
FROM ekko 
WHERE lifnr IN s lifnr 
AND 
pprior <> space. 


aetotekeeetotototoekeeeeoteoteeeeeeteeeeetek 


i Preparing Events T 
aetotekeeeotototeeeeeteekeeteeekxtek 
CLEAR wa events. 
wa events-name = 'TOP OF PAGE'. 
wa events-form = 'PRINT HEADER'. 
APPEND wa events TO it events. 
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^ END-OF-SELECTION * 
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END-OF-SELECTION. 


CLEAR wa_fieldcat. 

wa fieldcat-fieldname = 'LIFNR'. 

wa fieldcat-col pos = 1. 

wa fieldcat-seltext m = 'Vndr. No.'. 


wa_fieldcat-key = c_check. 
APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 

wa fieldcat-fieldname = 'AEDAT'. 
wa fieldcat-col pos = 2. 

wa fieldcat-seltext m = 'Cret. Dt.'. 
APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 

wa fieldcat-fieldname = 'EBELN'. 

wa fieldcat-col pos = 3. 

wa fieldcat-seltext m = 'Po. No... 

APPEND wa fieldcat TO it fieldcat. 


CLEAR wa fieldcat. 

wa fieldcat-fieldname = 'PPRIOR'. 
wa fieldcat-col pos = 3. 

wa fieldcat-seltext m = 'Vndr. No. 
APPEND wa fieldcat TO it fieldcat. 
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REUSE ALV GRID DISPLAY * 


类 类 类 类 类 关头 类 类 类 类 类 头头 关 关头 类 类 头头 关头 类 类 头头 类 头头 类 类 类 关头 头头 类 类 头头 


CALL FUNCTION 'REUSE ALV GRID DISPLAY' 
EXPORTING 
i callback program = sy-cprog 


it fieldcat = it fieldcat 
it events — it events 
TABLES 
t outtab — it ekko. 
Uu ———————Á————ÓÁ—Ó— 
*& | Form PRINT HEADER 
e —————————— 


FORM print_header. 
DATA : it list TYPE slis t listheader, 
wa list TYPE LINE OF slis t listheader. 


CLEAR wa list. 

wa list-typ = 'H'. " HEADER 

wa list-info = 'List of purchasing doc Header. 
APPEND wa list TO it list. 


CLEAR wa list. 

wa list-typ — 'S'. " SELECTION 

wa list-info — 'List of purchasing doc Selection'. 
APPEND wa list TO it list. 


CLEAR wa list. 

wa list-typ — 'A'. " ACTION 

wa list-info = 'List of purchasing doc Action'. 
APPEND wa list TO it list. 


CALL FUNCTION 'REUSE ALV COMMENTARY WRITE 
EXPORTING 
it list commentary = it list 
| LOGO = 'ENJOYSAP_LOGO' 
* I END OF LIST GRID = 
* | ALV_FORM = 


ENDFORM. "PRINT HEADER 
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List of purchasing doc Action 
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